home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / editor / editor2 / fnlwrppr.lha / FinalWrapper3_12 / FinalWrapper.install < prev    next >
Text File  |  1996-10-31  |  7KB  |  158 lines
  1. ; $VER: FinalWrapper.install 3.12 (31.10.96) by NDY's
  2.  
  3. (PROCEDURE copy
  4.   (IF (= @user-level 2)
  5.     (IF (= (ASKBOOL (PROMPT (CAT prefix file infix destdr postfix)) (HELP @askbool-help) (DEFAULT 1) (CHOICES (CAT no yes))) 1)
  6.       (
  7.         (IF (NOT (EXISTS destdr)) (MAKEDIR destdr))
  8.         (COPYFILES (SOURCE file) (DEST destdr))
  9.       )
  10.     )
  11.     (
  12.       (IF (NOT (EXISTS destdr)) (MAKEDIR destdr))
  13.       (COPYFILES (SOURCE file) (DEST destdr))
  14.     )
  15.   )
  16. )
  17. (PROCEDURE setenv
  18.   (
  19.     (SET destdr "ENVARC:FinalWrapper")
  20.     (IF (NOT (EXISTS destdr)) (MAKEDIR destdr))
  21.     (SET envarcloc "ENVARC:Locale")
  22.     (IF (EXISTS envarcloc (NOREQ)) (DELETE envarcloc))
  23.     (SET fwdef "ENVARC:FinalWrapper.def")
  24.     (IF (EXISTS fwdef (NOREQ)) (DELETE fwdef))
  25.     (TEXTFILE (DEST "ENVARC:FinalWrapper/FWPath") (APPEND (SUBSTR destname 0 (- (STRLEN destname) (STRLEN (FILEONLY destname))))))
  26.     (RUN (CAT "SetLanguage " @language))
  27.   )
  28. )
  29.  
  30. (IF (= @language "deutsch")
  31.   (
  32.     (SET defdest "FinalWriter_D/FWMacros")
  33.     (SET hi "\nWilkommen zum Installer-Skript\nvon FinalWrapper 3.12!\n\n(c) 1996 by\n\nAndreas Weiss\nDorfstrasse 24\nCH-8212 Nohl\n(Schweiz)\n\nDas Programm ist SHAREWARE!\n(siehe Anleitung)")
  34.     (SET kick "Sorry, FinalWrapper benötigt mindestens OS2.0!")
  35.     (SET macro "Wählen Sie Ihr Final Writer Makroverzeichnis:")
  36.     (SET macrohelp "FinalWrapper wird in dieses Verzeichnis\ninstalliert, die Anleitung nach HELP:deutsch,\ndie benötigten Libraries nach LIBS:\nund eine kleine Datei nach ENVARC:")
  37.     (SET nosuchdir "Verzeichnis nicht gefunden:")
  38.     (SET alreadynewer "Diese oder eine neuere Version ist bereits installiert:\n\n")
  39.     (SET manual "FinalWrapperSmallD.Guide")
  40.     (SET dosetenv "Umgebungsvariablen setzen?\n\nEin Verzeichnis 'ENVARC:FinalWrapper'\nwird erzeugt und 'ENVARC:Language'\nwird gesetzt. Dies wird für die\ndeutsche Benutzerführung benötigt.")
  41.     (SET yes "Ja")
  42.     (SET no "Nein")
  43.     (SET prefix "")
  44.     (SET infix " nach ")
  45.     (SET postfix " kopieren?")
  46.     (SET done "FinalWrapper 3.12 wurde\nerfolgreich installiert!")
  47.   )
  48.   (IF (= @language "italiano")
  49.     (
  50.       (SET defdest "FinalWriter/FWMacros")
  51.       (SET hi "\nBenvenuti all'installazione di\nFinalWrapper 3.12!\n\n(c) 1996 by\n\nAndreas Weiss\nDorfstrasse 24\nCH-8212 Nohl\n(Switzerland)\n\nIl programma è SHAREWARE!\n(vedi manuale)")
  52.       (SET kick "Spiacente, è necessario almeno OS2.0!")
  53.       (SET macro "Scegliere la directory delle macro di Final Writer:")
  54.       (SET macrohelp "FinalWrapper sarà installato in questa\ndirectory, il manuale in HELP:italiano,\nle librarie richieste in LIBS:\n e un piccolo programma in ENVARC:")
  55.       (SET nosuchdir "Directory non trovata:")
  56.       (SET alreadynewer "Già presente questa versione (o più recente) di FW:\n\n")
  57.       (SET manual "FinalWrapperSmallI.Guide")
  58.       (SET dosetenv "Setto la variabile di ambiente 'Language'?\nE' necessario per tutti i linguaggi\ntranne l'inglese.")
  59.       (SET yes "Si")
  60.       (SET no "No")
  61.       (SET prefix "Copio ")
  62.       (SET infix " in ")
  63.       (SET postfix " ?")
  64.       (SET done "FinalWrapper 3.12 è stato\ninstallato con successo!")
  65.     )
  66.     (IF (= @language "dansk")
  67.       (
  68.         (SET hi "\nVelkommen til FinalWrapper 3.12's\nInstaller-script\n\n(c) 1996 by\n\nAndreas Weiss\nDorfstrasse 24\nCH-8212 Nohl\n(Switzerland)\n\nProgrammet er SHAREWARE!\n(se manualen)")
  69.         (SET kick "Desværre, FinalWrapper skal bruge mindst OS2.0!")
  70.         (SET macro "Vælg skuffen med Final Writer's macroer :")
  71.         (SET macrohelp "FinalWrapper bliver installeret til dette\ndirectory, manualen til HELP:dansk,\nde nødvendige libraries til LIBS:\nog et lille program til ENVARC:")
  72.         (SET nosuchdir "Directory ikke fundet:")
  73.         (SET alreadynewer "Denne, eller en nyere version er allerede installeret:\n\n")
  74.         (SET manual "FinalWrapperSmall.Guide")
  75.         (SET dosetenv "Sæt system-variable 'Language'?\nEr nødvendigt for alle sprog,\nundtagen Engelsk.")
  76.         (SET yes "Ja")
  77.         (SET no "Nej")
  78.         (SET prefix "Kopier ")
  79.         (SET infix " til ")
  80.         (SET postfix " ?")
  81.         (SET done "FinalWrapper 3.12 er blevet\ninstalleret som de skal!")
  82.       )
  83.       (
  84.         (SET defdest "FinalWriter/FWMacros")
  85.         (SET hi "\nWelcome to the Installer script\nof  FinalWrapper 3.12!\n\n(c) 1996 by\n\nAndreas Weiss\nDorfstrasse 24\nCH-8212 Nohl\n(Switzerland)\n\nThe program is SHAREWARE!\n(see manual)")
  86.         (SET kick "Sorry, FinalWrapper needs at least OS2.0!")
  87.         (SET macro "Choose your Final Writer macro directory:")
  88.         (SET macrohelp "FinalWrapper will be installed to this\ndirectory, the manual to HELP:english,\nthe needed libraries to LIBS:\nand a small file to ENVARC:")
  89.         (SET nosuchdir "Directory not found:")
  90.         (SET alreadynewer "This or a newer version is already installed:\n\n")
  91.         (SET manual "FinalWrapperSmall.Guide")
  92.         (SET dosetenv "Set environnement variables?\n\nA directory 'ENVARC:FinalWrapper'\nwill be created and\n'ENVARC:Language' will be set.")
  93.         (SET yes "Yes")
  94.         (SET no "No")
  95.         (SET prefix "Copy ")
  96.         (SET infix " to ")
  97.         (SET postfix " ?")
  98.         (SET done "FinalWrapper 3.12 has been\nsuccessfully installed!")
  99.       )
  100.     )
  101.   )
  102. )
  103. (IF (< (SHIFTRIGHT (GETVERSION) 16) 37) (EXIT kick))
  104. (MESSAGE hi)
  105. (IF (= @user-level 0) (SET @default-dest (TACKON @default-dest defdest)))
  106. (SET destdr (ASKDIR (PROMPT macro) (DEFAULT @default-dest) (HELP macrohelp)))
  107. (IF (NOT (EXISTS destdr (NOREQ))) (EXIT nosuchdir destdr))
  108. (SET file "FinalWrapper.rexx")
  109. (SET destname (TACKON destdr file))
  110. (IF (EXISTS destname (NOREQ))
  111.   (
  112.     (SET env "FWInstall.temp")
  113.     (RUN (CAT "Version >ENV:" env " \"" file "\""e))
  114.     (SET sourcever (GETENV env))
  115.     (RUN (CAT "Version >ENV:" env " \"" destname "\""))
  116.     (SET destver (GETENV env))
  117.     (DELETE (TACKON "ENV:" env))
  118.     (IF (>= destver sourcever) (EXIT alreadynewer destver))
  119.   )
  120. )
  121.  
  122. (copy)
  123. (FOREACH "FW_Macros" "FW_#?.rexx"
  124.   (
  125.     (SET file (TACKON "FW_Macros" @each-name))
  126.     (copy)
  127.   )
  128. )
  129. (SET envdr "ENVARC:FinalWrapper")
  130. (SET file manual)
  131. (SET destdr (TACKON "HELP:" @language))
  132. (IF (NOT (EXISTS destdr (NOREQ))) (SET destdr envdr))
  133. (copy)
  134. (SET destdr "LIBS:")
  135. (FOREACH "libs" "#?.library"
  136.   (
  137.     (SET file (TACKON "libs" @each-name))
  138.     (copy)
  139.   )
  140. )
  141. (IF (= @user-level 2)
  142.   (IF (= (ASKBOOL (PROMPT dosetenv) (HELP @askbool-help) (DEFAULT 1) (CHOICES (CAT no yes))) 1)
  143.     (setenv)
  144.   )
  145.   (setenv)
  146. )
  147. (SET destdr envdr)
  148. (SET file "FWbugreport.rexx")
  149. (copy)
  150. (IF (<> @language "english")
  151.   (
  152.     (SET destdr envdr)
  153.     (SET file (TACKON "Translations" (CAT "FinalWrapper." @language)))
  154.     (copy)
  155.   )
  156. )
  157. (EXIT done)
  158.